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EDITORIAL 


No MICRO BITS Nº 
vs preços dos micros TK85, Zk Spectrum , 
TYK82-C e ZX-81. A Sinclair agora 
os preços dos seus micros em 20%h.0s pre- 


2 comparei 
baixou 


cos atuais, em libras esterlinas , sao 
(preços velhos entre parênteses): ZX-81 
- £39.95 (449.95), ZX Spectrum 16K 499.95 
(8125), ZX Printer £39.95 (499.95). 


No MIÇRO BITS Nº 4 faremos 
um comentario sobre a ascensao da Sin- 
clair Research, que vendeu mais que 1 


milhao de microcomputadores em 3 anos, e 
que pretende lançar o "ZX-83" no ano: que 


vem. 


Cu — —— — — e —— —— — —— —. — — — o um us cum cr o a — — 
— — — — — — — — 
er o que me o mm e e e e — — — —— — — —— a — e 


Um dos principais problemas 
que temos com nossos micros e com 0 LOAD 
de programas em cassette. Gostariamos de 
receber comentarios sobre o que voces a- 
cham da qualidade das fitas gravadas co- 
mercialmente, quais marcas e tipos de fi- 
ta sao melhores/piores, e se voces pos- 
suem algumas dicas para minimizar Os pro- 
blemas "'SAVE/LOAD". Nesta ediçao ha um 
artigo de Luiz Carlos Nardy com um VU pa- 
ra otimizar o nível de gravação. Na pro- 
xima ediçao pretendemos analisar o desem- 
penho de um novo equipamento que deve a- 
cabar com muita dor de cabeça - o TIG- 
LUADER. Nao Percam! 


a uses ue q e e e e e e — e e e — DDD] 
a. TDlDã=HD>D=aaass— — — e— ts cm am us us ue us e ES o 


ESPECIALIDADES 


Frequentemente recebemos cartas so- 
licitando nomes de outros associados que tem inte- 
resse em certos assuntos, para troca de experiên- 
cias. Temos vários radioamadores como associados , 
e também engenheiros, médicos, contadores, etc. O 
Dr. Henrique Eisenberg do Rio de Janeiro está in- 
teressado em gravar sinais biológicos (por exemplo 
- um eletrocardiograma) para posterior análise ma- 
temática. Há engenheiros civis que provavelmente 
gostariam de trocar programas e idéias na área de 
construção - viga continua, etc. 

Verificando as suas fichas de  as- 
sinatura, há algumas áreas de interesse comum que 
destacam, tais como: gráficos, controle de proces- 
sos, astrologia, financeira/administrativa,biblio- 
teconomia, estatistica, pesquisa em física aplica- 
da, planejamento e controle de processos (PCP),ma- 


tematica, eletronica, simulação de processos, lin- 


guagem de maquina, TERRE 

Se alguem tem interesse em organi- 
zar um grupo de usuarios numa destas especialida- 
des (recebe e distribui correspondencia, etc.), ou 
qualquer outra, escreva-nos para incluirmos nesta 
nova coluna que acreditamos seja inedito na area de 
microcomputadores pessoais. Ha grupos de usuarios 
profissionais em muitas especialidades, mas ate a- 
gora nao conhecemos nenhum grupo de amadores  se- 
quindo a mesma linha. Promete ser bastante instru- 
tivo a todos que participarem. 

Não queremos tomar parte ativa nes- 
tes grupos, mas teríamos muito prazer em publicar 
os resultados de suas experiencias - talvez vocês 
desenvolvam programas que possam ser comercializa- 
dos atraves de MICRO BITS, ou hardware para  aco- 
plar aos TK/CP200/ZX. O incentivo esta aí - so de- 


pende de voces! 
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Todos os direitos de reprodução de MICRO BITS estao reservados, e qualquer reproduçao com fins comerciais 
ou didáticos 50 podera ser feita mediante autorização previa, 
Os artigos e cartas assinados são da responsibilidade dos autores, as opinioes nao necessariamente coinci- 


dindo com as desta publicação. 
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CrniTAS 


Arquiva até cem contas com número, sacado, data de emia 
são, agente cobrador, data de vencimento e vulor. 
ta o arquivo todo, ou por suçado, ou por data(e) 
ou as contus a pegar, sempre 


vencimento, 
ôs tótais. Fode-ae inserir, 
83 cvontua do arquivo. 


Este programs vem sendo comercializado em cassetto, pe 
la Hicron Eletroniça Com, Ind. Ltda. desde agosto 


1982. 


CONTROLE CONTAS A RECEBER 


PARA 


ARQUIVAR CONTAS 
UUTTARZELIMINAR 
LISTAR CONTAS: 
RAL 


UUTUTTA 
A US 
DAQUI 


TENECO EN 
SUPERNKITH 
SONIBELL 
SUPERPLAS 
METALCIA 
AGOLEVE 
SUPERBRAS 
TENECO EN 
AVES COMP 
EXTRADE 
ALL IMA 
MICROACEH 
REDE TU 
SUPERPLAS 
TENECO EN 
TENECO EN 
RUIPLAS 
CRED ISUPE 
SUPERPLAS 
RADIO THU 


OD OO OU GM CU Go (9 0 Co O 
FO TO TO PU FO FU FO MO RO PO TU O 


PPrhOGCOGUOS6G 
VrROCONANAUE 
1 

Ú 


NNNNNNNNN A, 


CONTROLE CONTAS A RECEBER 


A 
ROUTUAR CONTAS 
ÚUITARZELIMINAR 
LISTAR CONTAS: 

HM GERAL 


E 


QUAL O SACADO? 


SUPERSOFTE 
TOTAL A RECEBER 
TOTAL RECEBIDO 


QUAL O SACADOS 
TENECO ENG 


DOC. Nº E TIPO 
LHTA COBRADOR 


91,782 


no e E TO PAGO 
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95/7802 TENECO ENG 
RECEEE EE V60OUT UNIBANCO 8212020 gIsS000 
L6 282 TENECO ENG 
Lia 250UT UNIBANCO 821125 431500 
de 
17/88 TENECO ENG 
apresentando ; = -— 
de PA po 250OUT UNIBANCO sS21125 $65600 
TOTAL A RECEBER à 115120 
de TOTAL RECEBIDO g 1208 
DIGITE ENTER 
DIGITE 
1 
a 
3 10 REM HICRON ELETRONICA 
z 20 DIM D$&(1200,15) 
s 30 DIM SE(IVA, 1S) 
E 40 DIM Eg (100,15) 
E SO DIM V(100) 
BO DTM D(100) 
65 LET AR=4290 
70 DIM P$E(I1CO) 
*S LET Z=99 
82 LET B=3200 
SO GOTO SOVDO 
100 FOR N=1 TO 7 
829000 sPAGO 102 IF UVU(N)=9 AND D(N) =0 THEN G 
S20000 PAGO OTO 110 
8210324 $9390008 104 NEXT N 
&21030 gf6585900 108 GOTO 5000 
d21107 4212008 110 PRINT “DIGITE Nº E TIPO DO 
se1127 úLrsgas DOCUMENTO", 
821107 I2ZOBE 120 INPUT Dgã dn) 
221920 fisCRB 130 PRINT Dá&(N) 
S2eduLa SPAGO 1420 PRINT “SACADO es 
S2llid sgo2osguao 150 INPUT S&(N) 
821114 28000 1.60 PRINT Sgt) 
8e11e2A ge24B0OG 172 PRINT "DATA EMISSAO E AGENT 
8211224 g120900 E COBRADOR" 
621122 &1400B 180 INPUT Eg(N) 
821125 31500 1940 PRINT Eg&d(N) 
821125 g69508 20090 PRINT “DATA DE UCTO. ANO 
921123 1200900 MES DIA“ 
321129 gilisDOR 210 INPUT D (NM) 
820008 sPAGOQ 220 PRINT D(N) 
821127 sB400 230 PRINT “UALOR g 
240 INPUT U cn) 
250 PRINT UcnN) 
260 PRINT ,,"GIGITE Pv,” 
2970 PRINT “ERRO ,"ES,“ORC,C“OKS 
260 INPUT 0% 
285 CLS 
290 IF Qã='E” THEN GOTO 110 
DIGITE 295 GOTA S900 
, 509 PRINT “DIGITE Nº DO DOCUMEN 
TO vs 
o 510 INPUT QOgs 
S1º PRINT Og 
3 S2QA LET C=LEN Qá 
4. sala FOR N=1 TO gz 
s SAD IF IYDRIUN)U TO C)/)/=06 THEN B 
6 OTO 580 
a SS0O NEXT 
560 PRINT “NAO ENCONTREI 
570 GOTO 5901 
580 PRINT 
202 PRINT “DOC. Nº'“;DgG(N) 
5684 PRINT “SACADO 5 SEEN) 
os PRINT “VLTO.:P:DAN) 
o 00 PRINT “ESTAH PAGO? SYNP" 
% Q 610 INPUT Xg 
618 IF Xã='"S" THEN LET Pga(N) ="4 
630 PRINT “ELIMINA? Sen 
6GSO INPUT Og 
oa TM THEN GOTO 700 
= D$(N)=""" 
SnecAaDO ii diá 654 LET S&(N)="" 
ULTO. U 656 LET Eukd(N)="" 
658 LET D(IN) =Q 
TENECO ENG 660 LET V(N)-Q 
320000 gl2ZaB 670 LET Pua(N) = 


GOTO 5000 

GOSUB 6000 

FOR N=1 TO Z 

IF U(N) =0 THEN NEXT N 
GOSUB 6010 

GOTO 3309 ; 
PRINT “OUAL O SACADO? 
INPUT Rg 


K 


PZ 


THEN 
THEN 
THEN 
THEN 


GOTO 
GOTO 
GOTO 
GOTO 


.. 


“Pp, DATAS" ,“S" 
SAVE” 
"pp, RECEB 


TDO"“ , “rn o 


190 
s00 
1000 
1500 


Prppbphop 
NNNOCODO-) 


LET S=LEN RG 

GOSUB AR 

FOR N=a1 TO Z 

LF (SEN) C TO S)) <2R& THEN 
N 


GOSUB 8 

NEXT N 

GOTO 3300 

PRINT “DE QUE DATA?”, 
INPUT U 
PRINT U 
PRINT “ATENH 
INPUT 
PRINT 
CLS 
GOSUB 
PRINT 


2200 
30900 
2500 


THEN GOTO 
GOTO 


GOTO 


pivLROJIVPROO 
9006600909 0 


BM Ma 


QURQMNAR 


K 
K 
K 
Iá 
K 
K 
K 


FA ca qu 
MANA 
E 


QN 
NS GUDOSSOAGO 


( TO 6)); (58 €N) 


99800UNA 


QUE DATA?", * THEN GOTO 6050 


- (wypR- 


o E 
MES 





THEN PRINT “PA 


“Dronrmronmnior = - 


PS R$ =.) RO PO NX DDD RO is x FIM) 
A QUNVIPFEFRAÇOS 


U 
U 
8 
A 


cacos 


a8o 
T í, 
'FoR Nei TO Z 

LF D(N) <U OR DtN)>U THEN NE 


D:"DE “;U,"“ATEH 


"Us CATERM 


Cy dd 


QUNPHONJO + 


NrovPrE6 UNC 
DOCONESZOS- 


NEXT N 
37 à tam] 


DIPORTANTE: 

Digite a data na forma; 

AJSUDD 

Exemplo: 

Ux de dezembro de 1982. Digite: 
821201 


Esta forma de erquivar datas oferece grandes vantagens 
na procura é comparação das mesmas. 


eU 


«801 


»,») “TOTAL RECEBIDO 
;J“BIBITE ENTER" 


Gs 


UGSSOS SOSSOS 


VOO TIE 
MSG) UM 
CH SS Cy 


320 
Ou 
328083 


(6 TO 15) =" 


THEN RETURN 


Rs] 
CONTAS 
22) 


T N RETURN 
IF ULN) =0 


IF PSI(M) E 
PAGO 
PRINT D&CN),S 
PRINT EgtN),0 
PRINT 

IF PRN) <>" 


IF PstN)=t1" 


RETURIN 
PRINT 
REM 


PRINT 


(CN) 


& 
(N9 ;" 


"TOTAL A RECEBER 
PRINT “TOTAL RECEBIDO 


PRINT ,,ºDIGITE ENTER” 
INPUT Lã 


PRINT Nº 


PRINT 
RETURN 
ULS 
LET T=Q0 
LET P=6 
PRINT 
RECEBER” 
PRINT 
PRINT “PARA”, “DIGITE” 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT: 
PRINT 


"LISTAR CONTAS: * 
"EM GERAL" ,U3" 
"Pp; SACADO", "4" 


E TIPO”, 
, "DATA COBRADOR", “UCTO - 


HE 
ANO C(N)=9 OR N>2 
“4 THEN LET E& CN) 


E"; U CN) 
TMEN LET TaT+ 
THEN LET P=P+U 


E 


Ea , 


"SAC 
UVALO 


AT 8,4; "CONTROLE CONT 


“ARQUIVAR CONTAS, CI” 
“QUITAR/ZELININARC,CaS 


CLUBES 


Se voce quiser organizar um clube 


no seu bairro, cidade, etc., para que participan- 
. Ed “ . 

tes possam trocar ideias, programas, etc., envle- 

nos o seu nome, endereço e telefone (se tiver)para 


o f 
ser incluido nesta coluna. 


* PORTO ALEGRE - os interessados devem entrar | em 
contato com: RONALDO CARDOZO LAGES, R. CEL. FER- 
NANDO MACHADO 311/36, Ed. Presidente, CEP 90000, 
PORTO ALEGRE - RS. Tel: 25-0386 p/recados. Tel. 
comercial (00h a 06h) 21-4700 Ramal 392. 
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PROGRAMA "DADOS! 0) IF CR = À THEN GOTO BIÁ 


1 REM "DADOS"! 805 IF CR THEN RETURN 
5 REM FABIO SOUZA DE CARVALHO 814 CLS 
10 CLS 815 FOR F = 1 TO 22 
15 PRINT AT 8,9;"JOGO DE DADOS! 820 PRINT "**PATOX*PATOX*PATOXXPATOX*PATO 
2À PRINT AT 12,6:!!QUER INSTRUCOES ? (S/N)! x 
25 LET A$ = INKEY$ 825 NEXT F 
30 IF A$<S>"S! AND ASCDN! THEN GOTO 25 83) CLS 
35 IF A$ = "S! THEN GOSUB 1HPP 831 FOR G = 1 TO 22 
45 CLS 835 PRINT "CAI FORA PE RAPADO...OTARIO...!! 
50 LET CR=100P*(INT (RND*2)+1) 840 NEXT G 
55 LET A-INT (RND*6 +1) 845 CLS 
BO LET B=INT (RNDX6 +1) 850 PRINT AT 1/,6;!!VOU APAGAR, TCHAU...! 
65 PRINT AT 1Ó,f:"PERAI QUE EU TO JOGANDO 855 PAUSE 20P 
OS DADOS" 86) POKE 16437,255 
7) PAUSE 3H ' 865 CLS 
75 POKE 16437,255 87) STOP 
Bê PRINT AT 1,H;"VOCE ESTA COM CR$";CR;", DÓ! 109) CLS 
85 PRINT AT 16,Ó;"COLOQUE O SEU PALPITE! 1010 PRINT ,,,,'NESTE JOGO VOCE DEVE DESCOBRIR!" 
9) PRINT 1020 PRINT "OS NOS. DE 2 DADOS QUE EUM 
95 PRINT (NO. 1º. DADO = NEWLINE)!! | 1030 PRINT "JOGAREI SEM QUE VOCE OS VEJA." 
100 PRINT (NO. 22, DADO = NEWLINE)" 1040 PRINT "CADA VEZ QUE VOCE ACERTA UM" 
105 INPUT W 1050 PRINT "DADO GANHA CR$1HD, DD, QUANDO" 
11 INPUT Y 106) PRINT "ERRA PERDE CR$1DD, DD. VOCE" 
115 IF W= A ANDY = B THENGOTO 165 107) PRINT COMECA COM MIL OU DOIS MIL! 
12d IF W- A ORY = B THEN GOTO 354 108) PRINT "CRUZEIROS ALEATORIAMENTE." 
125 LET CR = CR - 2Wp 1090 PRINT "DIGITE NEWLINE. BOA SORTE." 
139 GOSUB 8H 1200 INPUT A$ 
135 GOTO BP 1300 IF A$ = "!! THEN RETURN 
165 LET CR = CR + 200 140P GOTO 1200 
17) PRINT AT 16,P;"BUAAA....BUAAA....BUAAA 1450 SAVE "DADOS! 
" 1500 RUN 


175 PRINT "VOCÊ INFELIZMENTE GANHOU. . +! 
180 PRINT MAQUI ESTAO OS DADOS: '";A;"es ER"; 


ER TU rr ta da 
185 PRINT M " . 
190 PRINT "DEIXE-ME TER UMA CHANCE DE! CORRESPONDÊNCIA 
195 PRINT "LEVAR TODO O SEU DINHEIRO (S/N)! 
197 LET B$ = INKEY$S Mandem as suas cartas para : 


2ÓP IF B< Drs" AND B$Ê<DN! THEN GOTO 197 
2b4 IF B$ = "St! THEN CLS 
205 IF B$ = "S" THEN GOTO 55 


MICRO BITS INFORMÁTICA LTDA. 
CAIXA POSTAL 12.464 
04798 - SÃO PAULO - SP 


216 CLS 

215 PRINT AT 10,59;NCONARDE. oc sesesasesems ss ' E 

220 PAUSE OQ Para aqueles que enviam cartas pedindo informaçao 
225 POKE 10437,255 individual, solicitamos que enviarem envelope en- 
230 PRINT AT 15,5;!!VOU APAGAR, TCHAU..... ' deregado + melado para w respostas 


235 PAUSE 1Wf 
240 POKE 10497,255 emu Bioma 


a no EDIÇÕES AVULSAS DE MICRO BITS 

250 STOP codes ese pi 

350 LET CR = CR - 100 Nº 1 - esgotado temporariamente 
355 GOTO BÓ Nº 2 , Cr$500,00 


a 
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COMO PROTEGER SEUS PROGRAMAS 


por Bernhard Wolfgang Schôn 


Uma dica para quem quer proteger 
seus programas em linguagem de máquina ou em BASIC 
evitando um LIST - Inclua no programa a seguinte 
linha : 
| REM 

Agora dê os seguintes comandos diretos: 
POKE 16509,42 
POKE 16510,248 


POKE 16513,118 


Pronto. Tente a tecla LIST. Só viu 
BPPP no canto esquerdo superior da tela? Tente LIST 
IP ou qualquer outro numero. Você verá que nao se. 
ra possível obter a listagem do BASIC, e difícil- 
mente alguém vai descobrir o segredo de desativar 


a proteção. Para isto digite: 


POKE 16509,0 
POKE 16516,1 
POKE 16513,234 


Voltou a listagem ,,.sevaes 

Interessante para este tipo de pro- 
teção e a impossibilidade de se adicionar qualquer 
nova linha em BASIC. Tente fazer isto, e vera que 
as novas linhas introduzidas serão listadas acima 
do código BOM) na tela, "bagunçando!! assim todo O 
programa protegido. 

Convém lembrar, que um programa pro 
tegido desta maneira não funciona, antes de apli- 
car os POKE!s adequados para desativar tal prote- 
ção, Ássim poderá manter seus programas protegidos 
nas fitas, e quem não conhece o segredo, jamais po 
derá listá-los ou fazê-los funcionar. E 


CONSERTO DE UM PROGRAMA DEFEITUOSO 
me meme A Ut DD OO 


por Bernhard Wolfgang Schôn 


Às vezes, ao rodar um programa lido 
de uma fita, este para e não quer funcionar. O que 
fazer? O primeiro impulso é acionar a tecla LIST e 
verificar a listagem do BASIC. Com espanto verifi- 
ca-se então, que no meio da listagem, ou aparece um 
número de linha completamente sem sentido,ou linhas 
de BASIC numa forma "bagunçada". (Fig. 1) 


Exemplo - 


200 LET A = 5p 
216 PRINT X+43 
8422 INPUT X 
Pd 230 GOTO 674 


51 GOSUB 1199 Pd 


520 PRINT "PONTOS" 2827TNPUT A 
54) RETURN 


Fig. 


Qualquer tentativa de um EDIT ou de 
um DELETE da linha defeituosa resulta num "ecrash!!, 
isto e, perde-se 0 programa inteiro. Parece que a 
única saída é carregar novamente o programa, tor- 
cendo que desta vez a leitura seja correta. 

Todavia, há uma outra maneira de re- 
cuperar o programa. Em primeiro lugar adiciona-se 
as seguintes 7 linhas de BASIC no início do pro- 


grama: 


1 LET E=16508 

2 IF PEEK E=118 OR E=1658 THEN PRINT Esl; 
TAB 7;PEEK (E+2)+256*PEEK (E+1);TAB 14; PEEK 
(E+3)+256%PEEK (E+4); 

3 LET Y=E+4+PEEK (E+3)+256*PEEK (E+4) 

4 LET E=E+41 

5 IF PEEK EX 118 THEN GOTO 4 

6 PRINT TAB 2O;"ERRADO! AND EXDYSTAB 2H; "OK! 
AND E=Y 

7 GOTO 2 


Caso o programa original esteja ocu- 
pando as linhas 1 a 7, entao faça nota destas li- 
nhas, para que após ''consertar!! q programa elas 
possam ser recolocadas no devido lugar. 

Agora tecle RUN e faça o programa 
acima rodar. Na tela aparecerá por linha (na ordem) 
o endereço da memória, o número da linha do BASIC, 
o comprimento desta linha, e por último a mensagem 


"OK! ou MERRADO! (Fig. 2) 


16509 l 15 OK 

16528 2 131 OK 

16663 3 49 OK 
Fig. 2 


———. ND 
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Continue listando com este programa 
usando a tecla CONT, quando completar a tela, ate 


encontrar uma linha defeituosa (Fig. 3) 


17820 4) 12 OK 
17836 216 1d OK 
1765] 8422 3 OK 
17858 230 n OK 


Figo 3 


No exemplo da Fig. 3 apareceu q nú- 


mero da linha de BASIC errado (8422 ao invés de 


22h). A mensagem "OK! refere-se ao comprimento des- 


ta linha, que aparentamente está correto. Para a- 
certar este número de linha, o procedimento =é. o 


seguinte : 


LET A=(nº da linha correto) 
POKE (endereço), INT (A/256) 
poKE ((endereço)+1),A-INT (A/256)*256 


Agora, ao listar o programa, vera 
que a numeração das linhas voltou a ser normal.Con 
tinué listando, ate detectar um outro tipo de erro 
bastante comum : (Fig. 4) 


19974 ip 12 OK 
19994 524 16 ERRADO 
20011 54 2 OK 
20017 554 2 OK 
Fig. 4 


Como ja dito anteriormente, a men- 
sagem "ERRADO" indica uma divergência de um | com- 
primento de uma linha de BASIC. Para este tipo de 


defeito, o procedimento é assim: 
POKE ((endereço)+(comprimento)+3),118 
Voltando ao exemplo : 
POKE (19990+10+3),118 
Pronto. Uma breve verificação no 
restante do programa, e as linhas | a / podem ser 
apagadas e recolocadas as linhas eventualmente re- 


tiradas do programa original. Dando agora uma lis- 


tagem do nosso exemplo, temos : 


200 LET A-5Ê 
21) PRINT x43 
220 INPUT x 

230 GOTO 670 


51) GOSVÊ 1194 

520 PRINT "PONTOS! 
530 INPUT A 

Su) RETURN 


TECLADO MUSICAL PARA O TK82-C 


por Rui Cesar Torres 


Este trabalho foi desenvolvido com 
base em artigo publicado na revista MICRO SISTEMAS 
de autoria de Carlyle Macedo e Edelvício Souza. 

Este programa pretende transformar 
as primeiras nove teclas numéricas do TK&2-C (e dos 
Z2X-81,CP-20P e NEZBPOM) em um teclado de orgão. 


I) Recebimento de subrctina Assembler : 


dB URERA (45 pontos) 
9000 FOR N = 16514 TO 16554 
991) INPUT A 

9020 POKE N,A 

9030 SCROLL 

9040 PRINT N;!-M;A 

9050 NEXT N 

9060 STOP 


Comande GOTO 90PP e a seguir digite 


a seguinte sequência de numeros: 


O 0 DO 221 42 132 64 237 91 13) 64 1 255 255 213 
225 62 1 211 255 9 218 151 64 213 225 62 2 211 255 
9 218 161 64 221 9 218 145 64 201 


Caso você só tenha 2K, delete as 
linhas de 9000 a 906) logo após a entrada dos nú- 


meros acima. Não delete a linha lÊ. 


II) Recebimento das frequências e durações. 


DR 
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B5pf DIM F(a: 

851) DIM R(9) 

A520 DIM D(9) 

BS3P FOR N=1 109 
B540 INPUT F(N) 

8550 INPUT R(N) 

PSB LET O(N) = BÍN) 
8570 NEXT N 

858) STOP 


Comande GOTO B5Wf e a seguir digite 


à Seguinte sequência de números : 


492 131 49 147 358 165 237 175 301 196 268 220 240 
245 225 262 20) 294 


E. -M 
Caso voce só tenha ZK, logo após a 


entrada dos números acima, delete as linhas de 
aSpp a B5eÊ, 


INI) Programa BASIC 


10P IF INKEY$ ="! THEN GOTO 10Q 
110 IF INKEY$ = "Rº THEN GOTO 3H 
12) IF INKEY$ = "A! THEN GOTO 50g 
130 IF INKEY$ = "D" THEN GOTO 40p 
I4Ô LET X = CODE INKEY$ 

150 IF X<29 OR XD37 THEN GOTO 10f 
160 LETX =X -28 e 

165 LET END = 16514 - 

1I7Ó LET A = F(X) 

18) GOSUB 6Hp 

190 LET A = O(X) 

20) GOSUB 6Wp 

21) LET XX - USR 16518 

22) GOTO 100 

30) FOR N=1109 

310 LET O(N) = R(N) 

320 NEXT N 

330 GOTO 100 

“ÓP FORN=1 7109 

410 LET D(N) = INT (D(N)/1.2) 

42) NEXT N 

43) GOTO 1Dp 

SOP FOR N=1 109 

516 LET O(N) = INT (D(N)*1,2) 

52) NEXT N 

530 GOTO 106 

60W POKE END,A-256% INT (A/256) 
61f POKE END+1,INT (A/256) 

62) LET END = END + 2 

63) RETURN 


IV) Tocando 


- Às teclas de 1 a 9 correspondem as notas DO 
RE MI FA SOL LA SI DO RE. 

- Notar que nao temos sustenidos. 

- À tecla À faz com que a duração da nota seja 
aumentada. 

- A tecla D faz com que a duraçac da nota seja 
diminuida. 

- À tecla R restaura a duração da nota para O 
normal. 

- Qualquer outra tecla diferente das menciona- 


das acima nao sao válidas. 


Como aqui apresentado, este progra- 
ma roda em ZK. 

á extremamente aconselhável que este 
pregrama execute na modalidade FAST 

Para iniciar a execução, aumente O 
som da televisão, tire todo o brilho da tela e co- 
mande GOTO 16f (Nao de RUN) 

Para parar a execução do programa a- 

perte BREAK. 

Em algumas situações, caso você di- 
minua demais a duraçao da nota (tecla D) algumas 
notas não soarao mais. Neste caso use a tecla R pa- 


ra voltar ao normal. 


CONVERSÃO HEXADECIMAL - DECIMAL 
No Micro Bits Nº 1 publicamos um 
programa de Luiz Carlos Nardy para conversão de nu- 
meros decimais em haxadecimais e vice-versa. Pedi- 
mos sugestões para modificar o programa a fim de 
que aceitasse números decimais de É a 65535 ( ou 
hexadecimal de OPÓP a FFFF). A única resposta re- 


cebida foi do próprio Luiz, que segue : 


Programa para transformação do sis- 
tema decimal em hexadecima! (de À a 65535) e do 
hexadecimal em decimal (de PODA a FFFF). 

Para a modalidade FAST, devem ser 


acrescentadas as linhas: 


23 PAUSE LOADA 
221 PAUSE SAM 
441 PAUSE sAndA 


E nn SS 
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Para SAVE: 31) LET D2 = D2+28 
315 LET DI = D1+28 


H 


GOTO spp 320 LET H$ = CHR$ (G) + CHR$ (D3) + CHR$ (D2) + 
LIGA GRAVADOR CHR$ (D1) 
NENLINE 325 GOTO 215 
“pb CLS 
Z CL3 “OS PRINT AT 1Ó,8;"HEX = "; 
3 REM LUIZ C NARDY-JAU-1983 41H INPUT Y$ 
5 PRINT TAB B;"DECIMAL/HEXADECIMAL! 415 IF LEN Y$ >4 THEN GOTO 410 
8 PRINT TAB B:"(DE À A 65535)! 420 PRINT Y$ 
8 PRINT 425 IF LEN Y$ = 4 THEN GOTO 448 
LÓ PRINT TAB 6;"HEXADECIMAL/DECIMAL!! 43) LET D = 16%CODE Y$ + CODE Y$ (2) - 476 
12 PRINT TAB &;"(DE OBM A FFFF)! 435 PRINT AT 12,8:"DEC = "";D 
15 PRINT ,,rs, 437 PRINT AT 17,8;"1 - NOVO CALCULO! 
18 PRINT TAB 5:;!!1 - DEC PARA HEX! 438 PRINT AT 19,8;!!2 - VOLTA AO MENU! 
2) PRINT TAB 5;!!2 — HEX PARA DEC! e 44) PRINT AT 21,8;!*DIGITE 1 OU 2%! 
22 PRINT AT 20,8;!*DIGITE 1 OU 2%! 442 IF INKEY$ = "1! THEN RUN 40D 
25 IF INKEY$ = "1! THEN GOTO 30 443 IF INKEY$ = "21 THEN RUN 
26 IF INKEY$ = "2" THEN GOTO “Mp 444 GOTO 442 
28 GOTO 25 448 LET AS = Y$ (1 TO 2) 
3H CLS 45) LET B$ = Y$ (3 TO 4) 
35 PRINT AT 1Ó,8:NDEC = tt; 455 LET H = 16XCODE A$ + CODE A$ (2) - 476 
37 INPUT X 46) LET J = 16*CODE B$ + CODE B$ (2) - 476 
38 IF X>65535 THEN GOTO 37 465 LET D = H*256+J 
4) PRINT X 47) GOTO 435 
h? LET E = INT (X/16) SB) SAVE "D/H-H/D" 
45 LET DI = X-16%E 550 RUN 


48 IF EXI6 THEN GOTO 2Hf 
SO LET F = INT (E/16) 
52 LET DZ = E-l6%F 
55 IF FC 16 THEN GOTO 259 
58 LET G = INT (F/16) 
bP LET D3 = F-16*G 
5 GOTO 3HP 
2PP LET E « E+28 
205 LET DI = D1+28 
210 LET H$ - CHR$ (E) + CHR$ (D1) 
215 PRINT AT 12,8;"HEX = "";H$ 
217 PRINT AT 17,8;!'1 - NOVO CALCULO" 
218 PRINT AT 19,8;!2 - VOLTA AQ MENU!" 
220 PRINT AT 21,8;!'XDIGITE à OU 2%! 
222 IF INKEYS$ = "1! THEN RUN 30 
223 IF INKEY$ = "2" THEN RUN 
224 GOTO 22H 
25) LET F = F+28 
255 LET D2 = D2+28 
26) LET DI = D1+28 
265 LET H$ = CHR$ (28)+ CHR$ (F)+ CHR$ (D2)+ CHR$ 
(D1) 
27f GOTO 215 
3HP LET G = 6+28 
365 LET D3 = D3+28 


Na carta acompanhando o programa |, 
Luiz escreveu que nao conseguiu evitar a entrada 
de digitos não-numéricos para decimal ($ a 9) ou 
não-hexadecimais para hexadecimal (f a F). Estes 
erros de digitação são eliminados no seguinte pro- 


grama : 


2) REM HEX/DEC 
4) REM MICRO BITS MAIO/83 
6) CLS 
BÓ PRINT AT Ó,P:;"DIGITE 1 : DEC PARA HEX" 
100 PRINT AT 1,7;!2 : HEX PARA DEC! 
120 PRINT AT 2,7;!3 : TERMINAR! 
14) INPUT V$ 
160 IF LEN VÊ<>I THEN GOTO 60 
18) IF V$< "gr! OR V$ D!'3! THEN GOTO 6 
20D LET V = VAL V$ 
22) IF V = 3 THEN STOP 
24) IF V = 2 THEN GOTO 680 
26) REM DEC PARA HEX 
280 CLS 
300 PRINT AT 1Ó,7;"DEC = "; 
32) INPUT v$ 
34) PRINT V$ 
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360 IF LEN V$ = É OR LEN V$ >5 THEN GOTO 306 
380 FOR I = 1 TO LEN V$ 

“PD IF V$(I)< "Br OR VÍCI)D "9" THEN GOTO 304 
hoy NEXT T 

LL) LET V = VAL V$ 

46) IF V 65535 THEN GOTO 300 

4BÓ LET VI = 

df DIM H$(4) 

S20) FOR I = 4 TO 1 STEP -l 

54) LET V2 = INT (V1/16) 

SB) LET H$(I) = CHR$ (V1-16*V2+28) 

SB) LET VI = V2 

60) NEXT I 

B2f PRINT AT 11,7.MHEX = "HS 

64 INPUT V$ 


060 GOTO 60 qe. 


68H REM HEX PARA DEC 

76) CLS 

72) PRINT AT LÓ, D;MHEX = 1; 

74 INPUT V$ 

76) PRINT V$ 

78) IF LEN V$<€D4 THEN GOTO 706 

B0) FOR I = 1 TO4 

820 IF V$(I) < "pr OR V$(I) >"F" THEN GOTO 700 

Bu NEXT I 

BB) LET V = (CODE V$(1)-28)*4096+(CODE V$(2)-28) 
*256+(CODE V$(3)-28)*16+ CODE V$(4)-28 

BB) PRINT AT 11,7;NDEC = My 

00H INPUT V$ 

920 GOTO 66 


LINGUAGEM DE MÁQUINA - ONDE E COMO? 


PARTE FINAL 


Na última edição de MICRO BITS foi 
descrito a maneira de se utilizar o "REM! da pri- 
melra linha de um programa em BASIC para guardar 
um programa em linguagem de máquina. Agora vou dar 
os outros dois métodos, e fazer uma comparação das 


vantagens e desvantagens dos três. 
B. Usando q topo da memória - 


A variável RAMTOP (RTP no TKB2-C |) 
armazena o endereço do primeiro byte reservado na 
memória, Isto quer dizer que um programa em BASIC 
(inclusive o arquivo de imagem, variáveis, stacks, 
etc.) pode ir até o endereço anterior do valor de 
RAMTOP, Ao ligar o micro, este valor é iniclalizado 


ao topo da memória, até um máximo de 16K. Podemos 
modificá-lo para outro valor, e assim reservar es- 
paço entre RAMTOP e o topo da memória para incluir 
um programa em linguagem de máquina. O programa que 
você coloca nesta área não será afetado pelo pro- 
grama em BASIC, e nem o comando NEW irá apagá-lo. 
Ele só será perdido desligando-se o micro. 

- Qual a sequência para reservar es 
te espaço? Primeiro precisa modificar o conteúdo da 
RAMTOP, e depois digitar NEW. O NEW é importante ! 
Vou descrever duas maneiras para se decidir o va- 
lor de RAMTOP: 

(1) Para quem tem pouca memória disponível (1 ou 
2k). 
Suponha que se quer armazenar um programa de 


4P bytes. Digite as seguintes linhas : 


LET T = PEEK 16388 + PEEK 16389%256 

LET T=T-40 (4) = o número de bytes) 
POKE 16388,7-256*INT (T/256) 

POKE 16389,INT (T/256) 

NEW 


. “ . ad “ . q 
(ii) Para quem tem mais memoria disponivel. 


Suponha que possui 16K de RAM. Digite: 


POKE 16388,f 
POKE 16389,120 
NEW 


Agora o RAMTOP e 3072) e você tem 2K de memó- 
ria reservada (de 3072) a 32767). Se prefirir 
um numero arredondado para lembrar mais facil 
mente, pode utilizar o endereço 30WPP para o 


RAMTOP. Neste caso o procedimento e : 


POKE 16388,48 
POKE 16389,117 
NEW 


Assim você reservou os endereços de 3Pppp ate 
32767 (Podemos verificar que 48 + 117 * 256 = 
3pd0P). 

No caso de ter outra expansão de memoria, SO 
precisa modificar os valores de POKE. Por e- 


xemplo, para 48K pode digitar : 
POKE 16388,0 


POKE 16389,184 
NEW 


que reserva 2K de memoria, Ou : 


a an a o 
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POKE 16388,176 
POKE 16389,179 
NEW 


que reserva 05 endereços de LBMPÁ até 49151. 


Agora so falta digitar o nosso pro- 
grama. Vamos utilizar o programa "HEXTST! da pri- 


meira parte do artigo, modificando-o um pouco :- 


10 REM HEX2 

2) LET END = PEEK 16388 + PEEK 16389%256 

3) PRINT "DIGITE EM HEX” 

LP LETSS = UM 

0 IF S$ = Mt THEN INPUT Só 

Gp IF CODE S$ <28 OR CODE S$ >43 THEN STOP 
7) POKE END, I6*(CODE S$-28) + CODE S$(2)-28 
Bf LET END « END + 1 

00 LET S$ - S$(3 TO) 

l6p GOTO SÊ 


A linha 20 tambem pode ser mudada para : 


20 LET ENO - 3 Odd 
ou 


2) LET END = 4600) 


para quem esta usando os endereços fixos de 30H) 
ou 46BPPA (ou qualquer outro) para definir o  RAM- 
TOP. | 

- Para rodar o programa? Digite  - 
RAND USR endereço, onde endereço = (PEEK 16388 + 
PEEK 163894256) ou 300PP ou 460PÓ, ou o valor que 
voce definiu no início do programa em linguagem de 


maquina. 
C. Usando a área reservada para as variáveis 


Podemos definir um array de caraç- 
teres que será utilizado para conter um programa em 
linguagem de máquina. O array deve ser definido com 
DIM antes de qualquer outra variável no programa.0 
primeiro endereço a ser utilizado é calculado  u- 
sando a variável VARS (endereços 164) e 164f1)que 
define o início das variáveis do programa. 0 


endereço é dado por : 
PFEK 164Pf + PEEK 16401%256 + 6 


definindo-se o nosso array com uma dimensão so - 
por exemplo: DIM P$(25). 
O 6 e necessario acima, porque ha 6 


bytes iniciais para definir o array, sendo : 


Byte | - o nome do array ("P!! neste caso) 
Bytes 2 e 3 Numero de elementos + 1 (26) 
Byte 4 - Nº de dimensoes (aqui = 1) 


Bytes 5 e 6 Primeira dimensao (= 25) 


Podemos modificar "HEX2!! usando es- 


te metodo. 


1) REM HEX3 

15 DIM P$(25) 

2) LET END = PEEK 1640) + PEEK 16401%256 + 6 
SO sumass 


- Para rodar? Digite : 
RAND USR(PEEK 1640) + 256*PEEK 16401 + 6) 
As Vantagens e Desvantagens dos 3 metodos 
1. Usando "REM" 


Vantagens - 
(i) A rotina nao sera apagada com RUN ou CLEAR 
- somente ao desligar a maquina. 
(1i) Ao gravar o programa em fita ("SAVE!!) o pro 
grama no REM sera gravado junto. 
(11i) É facil lembrar o endereço inicial deste 


programa - sempre começa em 16514. 


Desvantagens - 
(1) Normalmente a primeira linha do programa é 
usada para identificação. Neste caso,a prai 


. . fg . . f 
meira linha e ininteligivel! 
2. Usando o topo da memoria 


Vantagens - 
(1) As linhas "REM! no início podem ser usadas 
como documentação. 
(ii) Não será apagada a rotina com os comandos 
RUN e CLEAR. 


(111) É bom para gravar programas longos. 


Desvantagens - 
(1) É mais complicado gravar o programa - pre- 
cisa modificar o RAMTOP, digitar NEW, e 
carregar outro programa para entra-lo. 


(ii) É aconselhavel utilizar "Jump's" relativos 


at ———————————————— e est 
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(JR) em vez de absolutos (JP), porque au- 
mentando a rotina além do espaço reservado, 
significa a mudança do início da rotina e 
modificação dos endereços em todos os Jumps 
absolutos é CALL'!s. 


3. Usando a área das variáveis 


Vantagens = 
(1) Como para "topo da memória! 
(1i) Ao SAVE o programa BASIC, o programa em 
linguagem de máquina também é gravado na 
fita. 


Desvantagens - 

(1) Não se pode usar CALL nem JP nos programãs, 
porque oq endereço Inicial do programa em 
linguagem de máquina pode mudar. Assim pre- 
cisa usar JR, é substituir CALL por outro 
mecanismo. 

(11) RUN e CLEAR apagará a área das variáveis, 
que anclui o seu programa! 


4 


Qual Método é Melhor 

Para o iniciante o uso do "REM! é 
aconselhável, porque não há restrição no uso das 
instruções do Z8P, e é bem mais fácil manipular.Se 
você quiser usar a mesma rotina com vários progra- 


mas, então usando o topo da memória é melhor. 


SLOW NO NE-Z8000 


Uma das perguntas mais frequentes 
dos associados e sobre a conversão do NE-Z8OPP pa- 
ra incluir a função SLON. 

Pretendiamos descrever como fazer 
esta conversão,mas depois de conversarmos com. várias 
pessoas sobre este assunto, concluímos que não é 
recomendado tentá-lo a menos que se tenha  expe- 
riênçia em eletrônica, 

Luiz Carlos Nardy escreve : 

RPE A adaptação do SLOW é difícil, não sendo 
tarefa para principiante, Q mais prático e seguro 
é recorrer a uma das muitas pessoas que se oferecem 
para fazer este serviço. Há sempre o risco de se 
danificar algum Chip. quseinsõos H, 


Para quem deseja alterar o equipa- 


mento, JAN MARTIN LUND vende o esquema completo do 
NE-Z8Wpp com SLOW (ver "Classificados!!). 

Até agora sabemos somente de WILSON 
DE ASSIS de São Paulo que faz a modificação (ver 
"Serviços!!). 

O editor de NOVA ELETRÔNICA infor- 
mou-nos que possivelmente esta revista trara um ar- 
tigo abordando este assunto. Esperamos que saia 


logo! 


SERVIÇOS 


Aqui anotamos informações úteis para os nossos lei- 


tores. 


Lembre-se - ao solicitar livros, equipamento,etc, 


não se esqueça de dizer que foi indicado pelo jor- 
nal MICRO BITS do CLUBE NACIONAL DOS TK/NE/SINCLAIR 


1. Conversao do NE-Z8000 para SLOW 


Em Sao Paulo, WILSON DE ASSIS faz a inclusao desta 
função no NE-Z8000 por Cr$15.000,00 (mais as des- 
pesas de embalagem e correio) e da garantia de 6 
meses. Se o seu endereço for proximo ao dele, ele 
entregara em casa. O seu telefone e: (011)203-7967 
e endereço : RUA FABRÍCIO CORREIA 145, TUCURUVI, 
02311 - SÃO PAULO - SP. 


2. Livros e Revistas 


Recebemos uma lista dos livros e revistas vendidos 
pela LIVRARIA CIÊNCIA MODERNA, que tem em estoque 


para pronta entrega. O endereço da livraria e: 


Av. Rio Branco 156 sobreloja 217 e 230 
20030 - RIO DE JANEIRO - RJ. 

(Caixa Postal 4420) 

Tels: (021) 262-2789/262-1989 


Segundo eles, a cotação dolar/livro e a menor de 
todo o mercado nacional, sendo Cr$900,00 = US$1,00 
(e Cr$1.600,00 = 1 libra esterlina) em 6 de junho. 


Os livros e preços são : 


l. LOGAN - Understanding your ZXB1 ROM £8,95 
2. MILGROM - Not Only 30 Programs for the 
Sinclair ZX81. £6,95 
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3. HILTON - The ZX81 Add-On Book, 1982 EO 490 
6. STEWART - Computer Puzzles for Spectrum 
and ZX81. 1982 £2,50 
0. SIEWART - Peek,Poke, Byte and RAM: BASIC 
Programming for the ZXB1. 1982 E4,95 
6. BAKCR- Mastering Machine Code on Your 
ZX81. 1982 $12,95 
7. CHARLTON - The Gateway Guide to the ZX81 
and Zx80 $9,95 
8. CHIU - Crunchers:21 Simple Games for the 
Timex/Sinclair 1000 2kK. 1983 $8,95 
9. HURLEY - The Sinclair ZX81:Programming for 
Real Applications. 1981 (+) $9,95 
10. TOMS - The ZXB81 Pocket Book. 1981 $10,95 


11 HARTNELL - Getting Acquainted with Your > 
Zx81 (3rd ed) 1982 $9,95 


l2. HARTNELL - Making the Most of Your ZX81$10,95 
13. PAGE - 101 Timex 1000/Sinclair ZxX81 
Programming Tips and Tricks. 1983 $7,95 
lt. REVISTA - YOUR COMPUTER (May 1983)Cr$1.650,00 
15. REVISTA - SYNC (May/June 1983) Cr$3.440,00 
16. REVISTA - Timex Sinclair Users 12º Cr$3.400,00 


3. Equipamentos Auxiliares 


- COMPUBEL, Tv. QUININO BOCAIUVA 1779, 66000 - 
BELÉM - PA, vende os MEMOPAK HIGH RESOLUTION GRA 
PHICS e MEMOPAK R$232 INTERFACE que aceita  im- 
pressora até 80 colunas 


Nao fomos informados sobre os preços. 


- TIGRE COMERCIAL LTDA., RUA CORREIA GALVÃO 224, 
01547 - SÃO PAULO - SP, esta começando a comer- 
cializar o TIG-LOADER. Segundo a TIGRE, este e- 
quipamento facilita o LOADe SAVE, filtra as in- 
terferençias elétricas de baixa frequência, dupli 
ca programas, etc. O prego de lançamento é de: 
Cr$10.000,00. 

Sugerimos que os interessados entrem em contato 
com a TIGRE para receberem mais detalhes. 
Pretendemos analisar um TIG-LOAD e publicar os 
resultados numa ediçao futura de MICRO BITS. 
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MEDIDOR DE INTENSIDADE DE SAÍDA 
DE SR E 
DO GRAVADOR PARA LOAD" 


por Luiz Carlos Nardy 


JACK P2  ING148 TRIM POT 2K2 
10 4 é 
2W : 
4,1 LES) A) 


A montagem pode ser feita numa cai- 
xinha de alumínio, medindo 8 X 6 X 4,5 cm, encon- 
trada em qualquer loja de material eletrônico. 

O instrumento de leitura é um micro- 
amperimetro, de cerca de 250 microamperes,de baixo 
custo , tendo sido usado um da marca SIGNAL, com 
escala de 1 a 5. 

O material é todo barato e fácil de 


encontrar. À montagem é muito simples. 
Regulagem e Uso 


O aparelhinho é ligado ao gravador 
(EAR), por meio do cabinho que vai do gravador ao 
computador (EAR / EAR). 

O gravador já deve estar com o con- 
trole de volume num ponto em que, por tentativas , 
já havia sido conseguido um bom LOAD. 

Ligado o gravador, com o programa 
com o qual foi feito o LOAD perfeito, irá surgir 
uma leitura no instrumento, que deverá ser ajustada 
com o trimpot, num ponto mais ou menos central da 
escala. Por exemplo no 3 (se a escala for de 125). 

A regulagem está pronta. 

Quando for fazer um LOAD com outra 
fita desconhecida, primeiro liga-se o aparelhinho 
ao gravador e regula-se o volume no ponto em que o 
ponteiro do instrumento de leitura ficar no refe 
rido 3, 

Em seguida, sem ser mudado o  con- 
trole de volume do gravador, o cabinho é desligado 


do aparelhinho e ligado no computador. 
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COMO CRIAR UM CADASTRO - PARTE II 


Um processo a ser executado. 

i o A Por exemplo :- 

a primeira parte deste artigo men- ” 
g "Calcula o desvio padrão! 


cionei algumas deficiências de nossos micros , e NETA-B4 CH 
= + 


precauções que devem ser tomadas, 
Nesta segunda parte será explicado 
a estrutura do programa e dos dados utilizados. 
Uma subrotina. 


Estrutura do Programa 


O programa é dividido em vários mô- Uma decisão a ser tomada.Neste ca 


dulos - cada módulo exercendo uma função especi- so, o simbolo é utilizado para sig 


nificar uma decisão múltipla (i- 
qual ao CASE em Pascal). Ao  es- 


fica. 





O fluxograma abaixo mostra a forma 


geral do programa, e as funções dos módulos, colher uma função, o desvio é fei- 
to para o módulo respectivo. 


INICIALIZAÇÃO 





IMPRIMIR 
MENU 






ESCOLHER 
FUNÇÃO 




































ENTRAR MODIFICAR LISTAR ORDENAR "SAVE STOP 

DADOS OU ELIMINAR 0S 0s PROGRAMA 

NOVOS DADOS DADOS DADOS E DADOS 

Os símbolos utilizados neste fluxo- O programa principal e as subrotinas 
grama são os seguintes :- começam nas linhas : 
20 - Programa principal 
1000 - Imprime Menu 

| Infeio ou fin do programa 2000 - Entrada de dados novos 
iai 3000 - Modificação ou eliminação de dados 


4000 - Listar os dados 
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9000 - Ordena os dados 
8000 
7000 Para futura expansão do programa 
8000 
9000 - Rotinas de verificação, etc. 
1. 9000 - Imprimir mensagens de erro 


2. 9200 - Verifiçação de valores numéricos 
3, 9500 - Verificação do CEP. 


Um dos módulos no fluxograma , 0 
"SAVE", não pode ser colocado numa subrotina - isto 


será explicado depois. 


Estrutura dos Dados 

Para cada associado vamos armazenar 
varios dados : 
Supondo que temos espaço na memória para ''n!! asso- 
ciados, poderíamos definir cada tipo de dado ( no- 


me, etc.) com um array. Por exemplo - 


A$(N) - Números de registro 
B$(N) - Nomes dos associados 
CSN) —- Endereços dos assoçiados 


etc. 


A grande desvantagem deste sistema 
apareçe na hora de ordenar os dados.Precisamos uma 
rotina para cada tipo de dado, e muito cuidado de- 
ve ser tomado para não errar. Se um tipo de dado 
não for alterado, por alguma razão, depois de or- 
denado teriamos nomes com o endereço errado, ou 
cidade, etc. 

Então é mais seguro manter um array 
só, contendo todos os elementos necessários. Neste 
programa utilizei o array R$(DIM,N), DIM sendo O 
número total de associados cujos dados cabem na me- 
mória, e N quantos caracteres estão reservados para 
armazenar os dados de cada associado. Para cada 
associado, R$(1, ), R$(2, ), etc., reservei um nu- 
mero fixo de bytes para cada tipo de dado. 


Assim R$(1,1 TO 4) corresponde ao numero de regis- 
tro do primeiro associado. 
R$(1,5 TO 22)corresponde a seu nome 


Estes tipos de dados chamam-se cam- 


pos na linguagem de processamento de dados, e 0 


4 a dá * 
conjunto de campos (numero de socio, nome, endere- 


Nome, Número do Sócio, Endereço,etc. 


CO, didi ) chama se um record. O conjunto de re- 
cords é chamado arquivo. 

Resumindo : O nosso arquivo é R$(DIM,N) 

Um record individual é R$(20,N) 
Um campo dentro deste record e 


R$(20,1 TO 4) 








Uma deficiência em BASIC é que não 
podemos dar um nome descritivo para cada campo.Por 
exemplo, seria muito mais fácil definir os elemen- 


tos assim : 


ARRAY RECS$(DIM,N) 

DEFINE NUMERO (X) = REC$(X,1 TO 4) 
DEFINE NOME (X) REC$(X,5 TO 22) 
DEFINE ENDERECO(X)= REC$(X,23 TO 46) 


etc. 


H 





e quando em uso, poderíamos escrever - 

IF NOME (1) = "LUIS CARLOS! THEN ..... 
em vez de: 

IF R$(1,5 TO 22) = "LUIS CARLOS" THEN .. 


Infelizmente temos que usar o segun 
do. Obviamente podemos confundir os campos facil- 
mente. - Como vou saber se R$(1,47 TO 66) e Bairro, 
e R$(1,67 TO 71) e o CEP? Uma tabela com todos os 
campos, e quantos bytes estao designados para cada 
um, resolve este problema. 

Na tabela abaixo estao discrimina- 
dos os campos de cada record - o nome, numero de 
bytes reservados, 1º byte e ultimo byte. Também es 
tão incluídos os arrays temporários, utilizados na 
verificação de cada campo. Por exemplo, A$(4) ar- 
mazena temporariamente o numero de registro do as- 


sociado - a dimensao (4) é igual ao número de bytes 


do campo. 

Nº do Nº de 12 Ult. Array 

Campo Nome do Campo Bytes Byte Byte Temp 
1 NÚMERO DO ASSOCIADO y Lo 4 A$ 
2 NOME 18 5 22 B$ 
3 ENDEREÇO (Rua) 24 23 46 C$ 
4 BAIRRO 20 47 66 D$ 
5 CEP 5 67 71 E$ 
6 CIDADE 25 72 96 F$ 
7 SIGLA DO ESTADO 2 97 98 G$ 
8 TIPO DO NICRO 199 99 HS 

% 


tai te te ie O 
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9 QUANTOS K DE MEMÓRIA 1 100 100 I$ 
10 NÍVEL DE PROGRAMAÇÃO 1 101 101 J$ 
11 INTERESSE 1 1 102 102 
12 1 2 1 103 103 já 
13 1 3 1 104 104 
16 " k 1 105 105 


Total de 105 bytes reservados por associado. 


Na próxima edição de MICRO BITS se- 
rá iniciada a listagem do programa,com explicações 


detalhadas sobre cada módulo. Até lá! 


OFERTAS 


A. Livros / Programas em cassette da MICRON ELETRÔ 
NICA de São José dos Campos, SP, 


- Livros 


|, 45 Programas Prontos Para Rodar em 

TK82-C e NE-Z8000 Cr$3.000 
2. Aplicações Serias Cr$3.000 
3. 30 Jogos para ZX-Bl, TKB2-C e CP-200 


(esperamos recebe-lo em breve) Cr$2.500 

- Cassettes 
1. Folha de Pagamento - 16K Cr$4.000 
2. Contabil - 16K Cr$4.000 


3. Correção Monetaria do Imobilizado 
- 16K Cr$4.000 


4, Contas a Receber « 16K Cr$4.000 
d. Contas a Pagar - 16K Cr$4.000 
6. Correção das Contribuições do 

IAPAS - 16K Cr$4.000 
7. Funções 1 - 16K Cr$5.000 
8. RAM TOPER - 16K (utilize junto com 

o DISASSEMBLER) Cr$5.000 
9. DISASSEMBLER - 16K Cr$5.000 
10, JOGOS I - ZK Cr$3.000 
li. JOGOS II - ZK Cr$3.000 
12. Jogo de Damas - 16K Cr$4.000 


B. Programas em Cassette de MICRO!'S Assessoria em 
Processamento de Dados de Santo Andre ( como 


comercializado pelo FILCRES) 


1. Batalha Aerea Cr$3.500 
2. Batalha Naval Cr$5.300 
3. Forca Cr$4.000 
4. Tiro ao Alvo Cr$3.500 
5. Simulador de Voo Cr$6.000 
6. Comando UFO Cr$3.500 
7. Oeste Selvagem Cr$4.200 
8. Senha Cr$4.500 
9. Batalha Cosmica Cr$5.500 
10. Biorritmo Cr$3.500 
11. Loto Cr$3.800 
12. Tabuada Cr$3.800 
13. Contas a Pagar Cr$12.000 
l4. Agenda Cr$8.000 
15. Video-Título Cr$15.000 
16, Cadastro de Clientes Cr$12.500 


Forma de Pagamento 
I Associados 


Livros - adicione Cr$100,00 para despesas de cor 
reio. 
Cassettes - 10% desconto sobre os preços desta 


tabela (despesas ja incluídas) 
II Nao-Associados 


Livros - adicione 10% para despesas de correio. 


Cassettes - os preços como listados. 


Envie cheque nominal e cruzado, em favor de David 
T. Anderson, para - MICRO BITS, Caixa Postal 12464, 
04798 - SÃO PAULO - SP. 

Tambem pode ser utilizado vale postal (mas cheque 
e preferível), a ser pago na agência SANTO AMARO, 

CEP 04798, e não na agência Central de São Paulo. 


Prazo de entrega - até 15 dias. 


TES OO SEE ST VE OT SETE DOE ip Saio ES te aaa na a e e camera e cre eme na me 
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LANÇAMENTO - NOVO LIVRO 


Délio Santos Lima, autor do livro 
"45 Programas Prontos Para Rodar em TK82-C e NE- 
78000", acaba de lançar um segundo livro - "APLICA- 
ÇÕES SÉRIAS". 

Neste livro ha 18 programas princi- 
pals, a maioria voltada para a area comercial. Por 


exemplo : 


Folha de Pagamento 
Balancete 
Correção Monetaria do Imobilizado 
Correção das Contribuições do IAPAS 
Contas a Receber = 
Cadastro de Clientes 
Conta Bancária 
Depreçiação 
Tabela Price 
Custos 
ELE . 
(0 programa Contas a Receber foi gentilmente cedido 
por Delio e apresentado nesta edição de MICRO BITS) 


Outros programas incluem :- 


Orçamento Doméstico 


RAM TOPER em código de maquina 
e ha capítulos sobre assuntos úteis, como : 


Convertendo Outros BÁSICs 
Contando os Bytes do Programa 
Economizando Memória 

Erros da ROM 

Conhecendo a Impressora 
'Chaining! Programas 


Projeto de um Teclado Mecânico 


Comparando com o seu primeiro livro 
"45 Programas «..«!'!, que é um dos mais vendidos na 
área de informática aqui no Brasil,este lançamento 
é bem maior (144 páginas contra 86); os programas 
Foram impressos na ZX Printer da Sinclair, que mi- 
nimiza os erros, e a qualidade da impressão do tex- 
to é melhor. 

Com a falta de livros com programas 
para os micros de lógica Sinclair escritos em por- 
tuguês, há uma enorme demanda, e a primeira  edi- 
ção esgotou-se rapidamente! Quem quiser adquiri-lo 
deve consultar a seção "OFERTAS! desta edição. 


Esperamos receber em breve o 3º l1- 


vro de Délio - !'30 Programas para ZX8l, TK82-C e 
CP-200!, que também pode ser encomendado — através 


de MICRO BITS. 


CLASSIFICADOS 


VENDE-SE micro NE-Z8000 com expansao de 16 Kb - 
Júlio Cesar M. Piccolo. Rua Sete de Setembro ,96 , 
Ribeirão Preto - SP. CEP 14100.7e1:(016)634-7219. 


VENDO esquema completo do microcomputador NE-Z8000 
(com SLOW e expansão de memoria) - 3 copias helio- 
graficas. Cheque nominal de Cr$6.000,00 para: JAN 
MARTIN LUND, Rua Frederico Ozanana 16/21, 11.100 - 
SANTOS- SP. 


VENDE-SE TK82-C com 16K e uma fita com 20 programas. 
MARCELO STEFANE, R. Apinages 1911, Casa 3, 01258 - 
SÃO PAULO - SP. 

TROCO por jogos de meu interesse pelos seguintes 
programas de movimento : Comander, Cuidado com a 
Cobra, Aksteration, e muitos outros Jogos em assem- 
bler. Meus jogos servem para os micros CP,NE e TK. 


Telefonar para 521-6345, Sao Paulo, Capital, com 


André Luiz. 


TROCO programas para o NE-Z8000. Procuro pessoa que 
fez assinatura da REVISTA DO TK para acordo comum. 
andre Zielasko, Emancipação 402 sala 2, TRAMANDAÍ - 
RS. CEP 95590. 


PROCURAM-SE programas em BASIC ou linguagem de ma- 
quina de alta qualidade para comercialização. NÃO 
queremos copias piratas. Envie detalhes sobre o(s) 
programa(s) e os recursos necessarios (SLOW, 16K , 
etc.) para Caixa Postal 12.464, 04798 - SÃO PAULO. 


CO A IRESTAS LITERA EE DAR PES TES PS EAR ETA SS SERTIESTTE ESS R S SSO  S ET ISSE  Si a eo cosoas p esa io, nai asso o oisuemmso O camisa aces mma mica risme te o catoo emma cao ec eae, 
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CARTAS ... CARTAS ... CARTAS ... 


e —— — — — — — —  — e o — — — — us uu — — uu — — — uu — — us um ums um um mm 
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Sugiro que : 

- Não torne este jornal numa fonte de propagandas. 

- Pesquise o mercado para indicar o que é melhor 
e mais barato para quem tem um micro como o meu. 
Ajudem a baratear o custo! 

- Sejam objetivos. Publiquem programas uteis! Não 


cometam erros na publicação dos programas. É 





terrível! 

- Pensem numa maneira valida e justa para  comer- 
cializar software entre os socios do clube.Muitas 
pessoas me escrevem querendo vender-me programas 
que sei sao da Microsoft! 


- Peçam sugestoes. 
MARCELO DE OLIVEIRA ORSINI, Florianopolis. 


P.S. Posso auxiliar os artigos deste jornal com 
algum material que tenho. Aguardarei novas edições 
para "sentir! o rumo que o jornal vai tomar, OK? 
uBits: Nossa intenção, Marcelo, e de não 
Incluir propaganda no jornal, embora isto seja uma 
maneira de conseguir baixar o preço da publicação. 
Nas, tambem, você não pode esperar que o pu- 
bliquemos com prejuízo, não é? Conseguindo-se um 
número razoável de associados, não será necessário 
aumentar a receita desta maneira. 

Já estamos começando a pesquisar o 
mercado - pretendemos publicar reportagens compa- 
rativas entre os micros já existentes, e também 
equipamentos auxiliares - por exemplo, um ''compan- 
der" (compressor-expansor) para eliminar problemas 
com LOAD e SAVE de programas em cassette. 

Publicar programas úteis? Vocês, os 
leitores, devem ajudar-nos a definir o que é útil, 
dando suas opiniões sobre o conteúdo do jornal  - 
mais programas comerciais ou jogos, mais profundi- 
dade nos artigos, ou menos, é assim por diante. 

Programas sem erros? Se fosse pos- 
sível conseguir uma impressora poderíamos copiar 
direto do micro para o papel e imprimir no jornal. 
Infelizmente, temos que datilografar os programas 
e verificar linha por linha. Entedemos que erros 
nos programas causam péssima opinião dos leitores; 
fazemos o máximo para eliminarmos todas as falhas. 

Pirataria de software - leia o ar- 
tigo em Micro Bits nº 2 - você deve concordar!Man- 
de-nos os nomes dos "piratas! para incluirmos em 


nosso arquivo negro! 
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Prezado Senhor David, 

Felicitações pela sua idéia! Sou 
possuidor de um NE-Z8BO, o computador "nota-sem! 
sem software, sem periféricos, sem possibildade de 
expandir a memória (que é microscópica ...) e sem 
qualquer referência em revistas especializadas(sal 
vo as que foram feitas por ocasião de seu lançamen 
to). Além disso, o manual de fábrica é bem  ruin- 
zinho, o "Basic! incompleto. Em suma ... pretende 
passar por um micro pessoal mas é inferior a muita 
calculadora de bolso ... De certa forma, isso até 
estimula a nossa criatividade, mas no início é di- 
ficil paca! 

Por isso, considero o aparecimento 
desse Clube, verdadeiramente !'caído do Céu!! ! En- 
caro com grande esperança a possibilidade de trocar 
experiênçia e quem sabe, até superar algumas das 
limitações que mencionei acima. 


Saudações cibernéticas, 
EDGARD SANTOS ROCHA, Rio de Janeiro. 


uBits: Até agora, Edgard, você foi a única 
pessoa com um NEZ80 (ou TKBO ou ZXBO) que nos es- 
creveu. Pensamos que todos que possulam estas má- 
quinas tivessem desistido de utilizá-las! Ainda 
não publicamos nada sobre estes micros, porque nin 
guem havia demonstrado interesse, mas esperamos fa 
zê-lo de vez em quando. O que parece ser mais útil 
é aprender como modificar programas dos ZX81 para 
os ZX80, e você poderá aproveitar a maioria da 


matéria do jornal. 


Prezado Senhor, 

Tomando conhecimento do vosso Clube 
através da MICRON ELETRÔNICA COMÉRCIO E INDÚSTRIA 
LTDA., venho com satisfação pedir-vos informaçoes 
sobre o Clube. 

No ensejo, gostaria que me enviasse 
uma informação especial 

- Copiei da revista "INTERFACE! NºS 
o programa "Simulador de Voo!!, mas o mesmo não ro- 
da e eu acho que faltam os Códigos de Máquina!!.Se 
for o caso, enviem-me as !dicas!! necessárias para 
corrigi-lo e roda-lo. 

Possuo um TK82-C e, no momento, es- 
tou mais interessado em jogos inteligentes e/ou 
animados, tais como : TK MAN, ET, DONKEY-KONG, GA- 
MÃO, DAMA, e em especial, jogos tipo "BATALHA ES- 


PACIAL!, Se V.Sa. possuir tais jogos favor enviar 
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listagem e preço (as fitas cassette estão muito ca 


ras). 


ÉLCIO ONOFRE DOS SANTOS, Senhor do Bonfim, Ba. 
uBits: Também comprei o INTERFACE Nº 5 e 

interessei-me pelo programa "Simulador de Vôo!!, de 

Antônio Paulo de Castro. Mas foi necessário veri- 

ficar somente a primeira linha, "1 REM ..... ",pa- 

ra saber que o mesmo não ia rodar! Porque? Porque 

o conteúdo desta linha tem um programa ou subroti- 

na em linguagem de máquina, e os códigos represen- 

tados por "?" não tem um valor único no micro. 

Por exemplo, NCLEAR!! tem código he- 
xadeçimal FD, "TAN! tem C9 (ou RET em Assembler 
280), CHR$ tem DE (SUB n), etc. Se você verificar 
ô manual do microcomputador, verá que códigos (de- 
cimais) 67 a 111, 122 a 125, e 195, não tem um ca- 
rácter correspondente (são descritos como "não u- 
sados!!). Então todos eles são representados por um 
424 quando listados. Como posso adivinhar se um '!!'2!! 
na listagem corresponde a "LD B,E!'! (código decimal 
67), "LO C,(HL)" (código 78), "JP nn!" (195), etc ? 
Ubviamente não é possível, e este programa não pode 
rodar como está. Precisa saber quais os códigos he 
xadecimais/decimais correspondentes a todos os ngn 
na linha |, 

Ha três possíveis razões porque a 
informação é incompleta : 

1. Q autor esqueceu de mandar os códigos. 

2. INTERFACE esqueceu de inclui-los. 

3, Este programa foi copiado de alguma fonte e 
somente foram traduzidas as mensagens para 
portugles. Neste caso quem copiou não entendeu 
o significado da linha 1. 

Sugiro, Élcio, que você escreva pa- 
ra INTERFACE. Você deve ter perdido algumas horas 
digitando este programa e tentando rodá-lo - mas 
sem êxito! Provavelmente há centenas de pessoas que 
fizeram a mesma coisa, Obviamente a INTERFACE pu- 
blicará o que está faltando no programa numa edi- 
ção futura da revista, e você poderá aproveitar to- 
do o seu trabalho - só será necessário re-escrever 
a linha À. 

Reconheço que podemos errar numa lis 
tagem de programa em MICRO BITS, mas dificilmente. 
Todos os programas publicados são testados (Em ge- 
ral quase 90% dos programas recebidos tem um ou 
mais erros cometidos, que precisamos consertar)an- 
tes de inclui-los. Como explicado em Micro Bits Nº 
É, hão conseguimos ainda um TK Printer, e isto di- 
ficulta muito q trabalho. 


Sobre Jogos - pretendemos publicar 
bastante neste jornal, mas você pode conseguir al- 
guns imediatamente se comprar os livros !!45 Progra 
mas ..... ! é HTrinta Jogos!! de Delio Santos Lima 


(ver "Ofertas!! nesta edição). 


Duas Cartas de ROGÉRIO C. DOS SANTOS 


Pot 
[e] 
— 





Prezado Senhor Anderson, 

Seguindo orientação de um amigo,fiz 
uma verificaçao da capacidade do meu micro TK82-C 
com expansão de 16K bytes. Utilizando o programinha 
que ele me indicou (7 instruções POKE e 1 PRINT), 
achei como resposta 14.124023 K bytes ao inves de 
16k. 

Surpreso com o resultado obtido,pois 
não havia notado qualquer deficiência na capacidade 
da RAM, retirei a expansão de 16K e limpei cuida- 
dosamente (com borracha de datilógrafa) os contatos 
Sucesso! Tenho agora 16K de RAM. 

Creio ser este um teste que todos 
possuidores de expansão de 16K devem fazer. A ma- 
neira mais expedita de efetuar o teste é através de 
uma instrução DIM. No meu TK82-C, se faço agora 
DIM D(377), obtenho a indicação D/f no canto es- 
querdo inferior da tela, indicando que esta OX. 
Antes de limpar os contatos de expansão e do com- 
putador, a instrução DIM D(377) provocava a indi- 
cação 4/f. Convém ressaltar que : 

a É simplesmente DIM D(3077) e NEW LINE, sem 
qualquer numeração. 
- No meu TK82-C, DIM D(3078) já provoca 4/b. 


Imagino que muitos devem estar com 
a capacidade de RAM restrita |, sem suspeitarem de 
nada. 

Outro assunto interessante é o da 
longevidade das fitas gravadas. Disse-me um pro- 
fissional da área de computação,que é tecnicamente 
aconselhável regravar as fitas a cada 3 anos. Qual 


a sua opinião? 
Cordialmente, 


ROGÉRIO C. DOS SANTOS, Rio de Janeiro. 


a 
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Prezado Senhor Anderson, 

Recebi o nº 2 de Micro Bits. Está 
bom. Prossiga neste caminho. 

Com relação à pirataria de "soft- 
Wwares!!, concordo plenamente com sua posição.Entre- 
tanto, há uma grande dúvida. Os programas existen- 
tes nas lojas foram desenvolvidos pelas firmas que 
os comercializam? Em caso negativo, essas firmas 
estarão pagando direitos autorais a seus legítimos 
autores? Há fortes indícios para suspeitar que os 
programas de damas, xadrez e outros, já são pira- 
teados pelas firmas brasileiras, Se assim for,vale 
o ditado : "ladrão que rouba ladrão tem cem anos de 
perdão", 

Apresento dois problemas que tenho 
com relação a meu TK82-C: 


1) A instrução PRINT 123456789 não é obedecida pois 
aparece 123456790 !! Quanto a PRINT 23456789, não 
surge o problema. Será esta uma particularidade do 
meu TK, ou outros equipamentos têm o mesmo defeito? 
2) Ao ligar o TK, verifico a expansão de memória 
para 158K com à instrução DIM D(3077) e NEW LINE.Se 
aparecer 4/D, a memória nao possui l16K e,em certos 
programas, surgirão problemas. Ocorre que, apesar 
de meus cuidados, o 4/f) tem aparecido  frequente- 
mente, o que obriga-me a, quase todos os dias,lim- 
par os terminais de contato do TK e da expansão. 


Gostaria de saber se isto acontece com outros e- 


quipamentos TK. 
Abraço de, 
ROGÉRIO GC. DOS SANTOS, Rio de Janeiro. 


uBits : Interessante o seu teste para veri- 
ficar quantos K de memória possui o micro,Rogerio! 
O problema que você tem com a variação deste valor, 
que o leva à limpeza dos terminais de vez em quan- 
do, provavelmente surge com a colocação / retirada 
do módulo de 16K cada vez você utiliza / guarda o 
seu micro. Desde que comprei q meu TK82-C (em ou- 
tubro de 1982) quase nunca retirei o módulo, e 
DIM D(3677) funciona sempre. Sugiro que só retire 
o 16K quando for realmente necessário, o 
- Longevidade de fitas? Não sei 
quanto tempo duram as gravações, mas há várias pre 
cauções que podem ser tomadas 
l. Sempre manter uma (ou mais) cópias dos 


seus programas em outras fitas. 


[DEDE SS A ST 
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2. Não deixar a fita aproximar-se de um campo 
magnético, que pode apagar a gravação. 

3. Manter as fitas num lugar fresco , sem 
muita variação de temperatura. Nunca | ao 


sol! 


- Pirataria de firmas brasileiras ? 
Pode acreditar que a maioria dos programas em lin- 
quagem de máquina, e uma boa parte dos programas 
em BASIC, são copiados de ''software houses!! da In- 
glaterraou Estados Unidos. - Se eles pagam direi- 
tos autorais? Parece que não. 

- PRINT 123456789 que nao funciona? 

Este nao é um erro, Rógerio. Todos 
os nossos micros fazem a mesma coisa. O problema 
está na precisão das variáveis armazenadas na me- 
mória. Para cada valor numérico há 5 bytes reser- 
vados, e normalmente fala-se que há "9 1/2 dígitos 
decimais!! de precisão. Isto quer dizer que entre 9 
e 10. dígitos decimais podem ser armazenados sem 
perder nenhum digito. Neste caso parece que temos 
7 dígitos certos, e não 9 nem 1f. 


Experimente este programinha: 


1Ó LET V = 123456786 
2) LET V=V+1 

3) PRINT YV 

4 GOTO 26 


e vai ter uma surpresa! Verificando a listagem dos 
resultados na tela ao rodar este programa, podemos 
adivinhar que o valor interno possui mais digitos 
de precisao do que aquele mostrado. 

Espero entrar em mais detalhes sobre 


precisao em futuras edições de MICRO BITS. 


Caro Amigo, 

Achei muito interessante e um tanto 
inovador o primeiro numero de MICRO BITS. Princi- 
palmente suas dicas abaixo dos programas enviados 
pelos nossos colegas. À dica que me chamou mais a 
atençao foi a explicaçao do POKE apos uma instru- 
ção PAUSE, o teste para saber se o micro necessita 
desse POKE e ainda o uso da instrução FOR/NEXT no 
lugar de uma PAUSE. ccliss.os... 

AMAURY VOLPIN, Santo Andre, SP. 


Junho 1983 
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